package body Manager_Package is

	procedure ChangeModule (Md : in Module; T : in Team_Access) is
	begin
		case Md is
			when Mod442 =>
				-- cambia il ruolo dei 10 giocatori
				--T(2).PR := CFW;
				
				
		--		STK
		--		LFW
		--		CFW
		--		RFW
		--		LMF
		--		CMF
		--		RMF
		--		LDF
		--		CDF
		--		RDF
		--		GKP
				
				
				null;
			when Mod352 =>
				-- cambia il ruolo dei 10 giocatori
				null;
			when Mod343 =>
				-- cambia il ruolo dei 10 giocatori
				null;
			when Mod451 =>
				-- cambia il ruolo dei 10 giocatori
				null;
			when others =>
				null;
		end case;
	end ChangeModule;
	
	-- function GetFieldState() return PlayerList;
	
	-- procedure ChangePlayers(A : in Player; B : in Player);
	
	-- procedure ChangeStrategy(A : in Strategy);

	task body Manager is
	
		-- T: team
	
	begin
		------------------------------------
		-- permette al manager di partire --
		------------------------------------
		accept Start;

		loop
			
			-------------------------------------------
			-- termina il ciclo di gioco del manager --
			-------------------------------------------
			select
				accept Stop;
				exit;
	         else
				null;
			end select;
			
		end loop;

	end Manager;
	
end Manager_Package;